home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 1.iso / pc / data / m20rev.dir / 00001.ls next >
Encoding:
Text File  |  1996-09-06  |  1.2 KB  |  49 lines
  1. on startMovie
  2.   global gNumOfReviewPages, gMyReviewPage, gReview, gAnswers, gNumOfAnswerPages, gMyAnswerPage
  3.   set gNumOfReviewPages to 5
  4.   set gNumOfAnswerPages to 5
  5.   set gMyReviewPage to 1
  6.   set gReview to 1
  7.   set gAnswers to 0
  8. end
  9.  
  10. on goNextReviewPage
  11.   global gNumOfReviewPages, gMyReviewPage, gReview, gAnswers, gNumOfAnswerPages, gMyAnswerPage
  12.   if gReview then
  13.     set gMyReviewPage to gMyReviewPage + 1
  14.     go(marker(1))
  15.   else
  16.     set gMyAnswerPage to gMyAnswerPage + 1
  17.     go(marker(1))
  18.   end if
  19. end
  20.  
  21. on goPreviousReviewPage
  22.   global gNumOfReviewPages, gMyReviewPage, gReview, gAnswers, gNumOfAnswerPages, gMyAnswerPage
  23.   if gReview then
  24.     set gMyReviewPage to gMyReviewPage - 1
  25.     go(marker(-1))
  26.   else
  27.     set gMyAnswerPage to gMyAnswerPage - 1
  28.     go(marker(-1))
  29.   end if
  30. end
  31.  
  32. on goToAnswer
  33.   global gNumOfReviewPages, gMyReviewPage, gReview, gAnswers, gNumOfAnswerPages, gMyAnswerPage
  34.   set gMyAnswerPage to gMyReviewPage
  35.   set gReview to 0
  36.   set gAnswers to 1
  37.   set myFrame to "ans" & gMyAnswerPage
  38.   go(myFrame)
  39. end
  40.  
  41. on goToReview
  42.   global gNumOfReviewPages, gMyReviewPage, gReview, gAnswers, gNumOfAnswerPages, gMyAnswerPage
  43.   set gMyReviewPage to gMyAnswerPage
  44.   set gReview to 1
  45.   set gAnswers to 0
  46.   set myFrame to "rev" & gMyReviewPage
  47.   go(myFrame)
  48. end
  49.